home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / cim_r32 / is / updatemanual < prev    next >
Text File  |  1999-12-06  |  4KB  |  167 lines
  1. ;
  2. ; Installer Script for CIM V3
  3. ; $VER: CIMInstallerScript 3.1.19 (30.11.99) Written by Jan-Erik Tervo 1999
  4. ; Installer version 42.12 or better recommended
  5. ;
  6.  
  7. (ONERROR
  8.       (EXIT)
  9.         )
  10.  
  11.  
  12.  
  13. (SET @default-dest "")
  14. (SET _stakki 15000)
  15.  
  16. (IF  (exists "CIM:" (noreq))
  17.      (
  18.  
  19.      (SET cimm_vernum (getversion "CIM:DOCS/MANUAL/mversio"))
  20.      (SET cimm_ver (/ cimm_vernum 65536))
  21.      (SET cimm_rev (- cimm_vernum (* cimm_ver 65536)))
  22.  
  23.      (SET ncimm_vernum (getversion "stuff2/manual/mversio"))
  24.      (SET ncimm_ver (/ ncimm_vernum 65536))
  25.      (SET ncimm_rev (- ncimm_vernum (* ncimm_ver 65536)))
  26.  
  27.      (SET i_ver (/ @installer-version 65536))
  28.      (SET i_rev (- @installer-version (* i_ver 65536)))
  29.  
  30.      ; ENGLISH STRINGS
  31.  
  32.      (SET #alku
  33.           (cat "\n\CIM - (the Caller Id Manager)\ and the HTML-Manual are Copyrighted by Jan-Erik Tervo 1996, 1997, 1998, 1999.\n\nCharity- & Shareware.\n\n\n")
  34.      )
  35.  
  36.      (SET #where_to_str
  37.           (cat "Select where to install CIM HTML Manual (A sub directory will be created there.")
  38.      )
  39.  
  40.      (SET #str-alreadyi
  41.           (cat "\n\nYou have CIM HTML Manual already installed!\n\nVersion: " cimm_ver '.' cimm_rev "\n\Version to be installed: " ncimm_ver '.' ncimm_rev )
  42.      )
  43.  
  44.  
  45.      (SET #str-installingm
  46.           (cat "\n\nIstalling CIM HTML Manual files\n")
  47.      )
  48.  
  49.      (SET #str-installingii
  50.           (cat "\n\nIcon info will be read\n")
  51.      )
  52.  
  53.      (SET #str-chooseb
  54.           (cat "\nChoose a HTML-browser you want to use.")
  55.      )
  56.  
  57.  
  58.   
  59.  
  60.  
  61.      (SET #tyok "SYS:Internet")
  62.  
  63.      (COMPLETE 0)
  64.  
  65.      (MESSAGE #alku)
  66.  
  67.      (IF cimm_vernum
  68.      
  69.                (IF (ASKBOOL(
  70.                          (help "No help for this function")
  71.                          (prompt #str-alreadyi)
  72.                          (choices "Cancel" "Proeed")
  73.                          
  74.                        )
  75.                
  76.                
  77.                (IF (> i_ver 42)
  78.                
  79.                          (ICONINFO
  80.                               (dest "CIM:DOCS/MANUAL/index.html")
  81.                               (prompt #str-installingii)
  82.                               (getdefaulttool "#tyok")
  83.                               
  84.                          )
  85.                 
  86.                         
  87.                          
  88.                          )
  89.                )
  90.                 
  91.                (EXIT (quiet))) 
  92.                          
  93.                     
  94.      )
  95.  
  96.  
  97.      
  98.      (SET @default-dest "CIM:DOCS")
  99.  
  100.      (SET CIMmdir "CIM:DOCS")
  101.  
  102.  
  103.      (SET #tyok
  104.           (askfile 
  105.  
  106.                     (prompt #str-chooseb)
  107.                     (help "No help")
  108.                     (default #tyok)
  109.                     )
  110.      
  111.      )
  112.      
  113.      
  114.      (ICONINFO
  115.           (dest #tyok)
  116.           (prompt #str-installingii)
  117.           (getstack "_stakki")
  118.      )
  119.      
  120.      
  121.      
  122.      
  123.      (COMPLETE 65)
  124.  
  125.      ;  Install Stuff
  126.  
  127.  
  128.      (COPYFILES
  129.         (help "No help for this function")
  130.         (source "stuff2/")
  131.         (pattern "#?")
  132.         (dest CIMmdir)
  133.         (prompt #str-installingm)
  134.         )
  135.         
  136.         
  137.  
  138.      (COMPLETE 80)
  139.      
  140.  
  141.  
  142.  
  143.      (TOOLTYPE
  144.          (dest "CIM:DOCS/MANUAL/index.html")
  145.          
  146.          (setdefaulttool #tyok)
  147.          (setstack _stakki)
  148.          
  149.         )
  150.      
  151.  
  152.  
  153.  
  154.      (MESSAGE "\n\nInstallation of CIM's HTML-Manual completed.\nIt was installed to CIM:DOCS/MANUAL/\n\n\nCIM's Official Home Page located at: http://www.netti.fi/~jet/cim\n")
  155.  
  156.      )
  157.      (MESSAGE "CIM is not installed correctly! (No CIM: assign.) Can't update.")
  158. )
  159.  
  160.  
  161. (COMPLETE 100)
  162.  
  163. ; end of installation
  164.  
  165. (EXIT)
  166.  
  167.